DEFINITION FOR C MODULE Math ;

(* standard ANSI C funtions from math.h *)

IMPORT Errno ;

CONST
  EDOM     = Errno.EDOM   ;
  ERANGE   = Errno.ERANGE ;

  HUGE_VAL = 1.0E300 ;

PROCEDURE ldexp( x : LONGREAL ; y : LONGINT ) ;

PROCEDURE frexp( x : LONGREAL ; VAR i : LONGINT  ) : LONGREAL ;
PROCEDURE modf ( x : LONGREAL ; VAR f : LONGREAL ) : LONGREAL ;

PROCEDURE exp  ( x : LONGREAL ) : LONGREAL ;
PROCEDURE log  ( x : LONGREAL ) : LONGREAL ;

PROCEDURE log10( x : LONGREAL ) : LONGREAL ;

PROCEDURE cosh ( x : LONGREAL ) : LONGREAL ;
PROCEDURE sinh ( x : LONGREAL ) : LONGREAL ;
PROCEDURE tanh ( x : LONGREAL ) : LONGREAL ;
PROCEDURE fabs ( x : LONGREAL ) : LONGREAL ;
PROCEDURE sqrt ( x : LONGREAL ) : LONGREAL ;
PROCEDURE acos ( x : LONGREAL ) : LONGREAL ;
PROCEDURE asin ( x : LONGREAL ) : LONGREAL ;
PROCEDURE atan ( x : LONGREAL ) : LONGREAL ;
PROCEDURE cos  ( x : LONGREAL ) : LONGREAL ;
PROCEDURE sin  ( x : LONGREAL ) : LONGREAL ;
PROCEDURE tan  ( x : LONGREAL ) : LONGREAL ;
PROCEDURE ceil ( x : LONGREAL ) : LONGREAL ;
PROCEDURE floor( x : LONGREAL ) : LONGREAL ;

PROCEDURE atan2( x , y : LONGREAL ) : LONGREAL ;
PROCEDURE fmod ( x , y : LONGREAL ) : LONGREAL ;
PROCEDURE pow  ( x , y : LONGREAL ) : LONGREAL ;

END Math.

